home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_11_(11-1984).d64 / moire pattern (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  541b  |  25 lines
  1. 1 REM MOIRE TITLE PAGE DEMO
  2. 5 STOPEXTC0
  3. 10 STOPCB2K4:STOPBMGR1:STOPFBMS0 :STOPFSCR1
  4. 15 FORJ=0 TO 318 STEP2
  5. 20 STOPDRAWJ,198,160,100 :NEXT
  6. 22 FORJ=0 TO 318 STEP2
  7. 23 STOPDRAWJ,0,160,100 :NEXT
  8. 24 FORJ=0 TO198 STEP2
  9. 25 STOPDRAW160,100,318,J   :NEXT
  10. 26 FORJ=0 TO 198 STEP2
  11. 27 STOPDRAW161,100,0,J   :NEXT
  12. 29 STOPEXTC4
  13. 30 M$="SUPERBASIC":STOPHRCS53248:M$=M$+""
  14. 40 X=120:Y=80:GOSUB50
  15. 45 M$="BY MCSOFT":M$=M$+"":X=124:Y=120:GOSUB50
  16. 47 STOPCHRX54,152,89:STOPCHRX52,160,89
  17. 48 FORJ=1TO800:NEXT
  18. 49 STOPFSCR16:     GOTO100
  19. 50 STOPCODEM$:FORJ=1TOLEN(M$)
  20. 60 STOPCHRXASC(MID$(M$,J,1)),X,Y
  21. 70 X=X+8:NEXT
  22. 80 RETURN
  23. 100 GETA$:IFA$=""THEN100
  24. 110 STOPBMGR0:STOPCB2K2
  25.